S [j^ [10 uriM^3 



, Divide + Multiply test us/ing random numbers 
,9/25/61 ^ 

jB • G • S • Ij» _ 



bel 



Pl 



p2 



p3 



p4 



P5 



,no. 


Of 


goodts 


n 


It 


It 


t 






II 


II 


over-flows 


M 


11 


ti It 


> 







, Inltillze random no, gen. 



, clear overflow 

,put rand no. In a,t),c 
,AC holds b 

,1s bit 17 of b equal to of a 



,bit of a equals bit 1? of b 

, multiply -J- divide subroutine 



dzm ctnl 

dzm ctn2 

dzm ctn3 

dzm ctn4 

lac randl 

dac rdl 

lac rand2 

dac rd2 

elf 6 

szo 

nop 

Jsp alDC 

rar si 

xor a 

sma 

jmp p? 

lac b 

xor rcl 

dac b 

szs 60 

Jmp muldiv 

lac a 

llo b 

dls c ,high speed divide 

jmp divovflo 

dac quot 

dio rem 

mus c ,hlgh speed multiply 

szs C\i 

jmp p2 
spa 

stf 16 
dac hprod 
dio Iprod 
lac Iprod 
szo 
nop 

rar si 
add rem 
szo 

jmp p4 
ral sl 
dac tl 
jmp p5 
xor t2 

sl 

tl 

1 

6 



, remember prod negative 



, clear overflow from divd subroutine 

,add remainder to low product 

,is there a carry into high product 



,fix up sign bit of low product 



ral 

dac 

law 

szf 

cma 

add hprod 

dac hprod 

lac tl 

sas b 

jmp errorone 

lac hprod 

sas a 

jmp errortwo 

elf 6 

idx ctnl 

sma 



, sub one if hprod is negative 



, Iprod + rem carry added to hprod 



,low product + remainder not equal to b 



,high product not equal to a 



muldiv 



dlvovflo 



a 

b 

c 

quot 

rem 

hprod 

tl 

Iprod 

ctn2 

ctnl 

ctn4 

ctn3 
t2 

t3 
t4 

t5 

rcl 

cr 

randl 

rand 2 

rdl 

rd2 

errorone 

errortwo 



pll 
pi? 



Jmp pi 
dzm ctnl 
Idx ctn2 
jmp pi 

a 

b 



lac 

llo 



, count sucessful matches 



,use divide subroutine 



print 



J da dvd 

lac c 

Jmp dlvovflo 

dac quot 

dlo rem 

lac quot 

Jda mpy ,use multiply subroutine 

lac c 

Jmp p3 

Idx ctn3 

sma , count no of overflows 

idx ctn4 

dzm ctn3 

jmp pi 

























400000 

2 

llo t2 ,stop code for type out 



1 

1-71-7 

742335 

125131 





llo rcl , print out errors 

jmp errortwo + 1 

llo t3 

tyo ' 

law a 

dap pi 2 

llo t2 

tyo ' 

llo 

law ' 6 

Jda print 

idx pi? 

sas t4 

jmp pll 

llo cr 

tyo ' 

szs 20 

jmp p2 

szs 10 

Jmp bei 

Jmp pi 



dlo tS 



%a.p 0.0 



P7 


cla 






lie 


t5 




rcl 


S3 




sza 


1 




llo 


t3 




lac 


t5 




rcl 


S3 




dac 


t5 




tyo 


t 




Isp 


print 




Jmp 


p7 


pio 


<^mp 




a"bc 


dap 


out ,get random number 




Jsp 


random 




dac 


a 




Jsp 


random 




dac 


c 




Jsp 


random 




dac 


b 


out 


Jmp 




random 


dap 


exit , random num genera' 




lac 


rd2 




llo 


rdi 




rcr 


s7 




xor 


rdi 




llo 


rd2 




dac 


rd2 




dlo 


rdi 


exit 


Jmp 




jmp bei 


end . 





po(Oc\Ar 'Ti^sr 



org 100 






I 


w iw * 




m 


lac 


k 


s 


ppa 


* , setup punch 0, general test 




dac 


a + 


1 








dac 


a + 


5 








dac 


c + 


1 








dac 


c + 


3 








dac 


c + 


7 








dac 


c + 


11 








lac 


k + 


1 




,ppb ' 




dac 


e ' + 


1 








Jmp 


b 








n 


lac 


k + 


2 




,ppa » ci, setup punch 1 




dac 


a + 


1 








dac 


a + 


5 








dac 


c + 


1 








dac 


c + 


3 








dac 


c + 


7 








dac 


c + 


11 








lac 


k + 


3 




,ppb » cl 




dac 


e + 


1 






b 


lac 


J + 


1 




,"2 reset a ctrs 




dac 


h + 


4 








lac 


J 


> 


-12 






dac 


h + 


1 








dac 


h + 


3 






a 


lio 




h 


9 


377, 


10 lines all holes 




Isp 


h + 


1 




,~12 




Jmp 


a 










lio 


h + 


2 




,777400, 10 lines no holes 

















isp 


h + 


3 




,-12 




Jmp 


a + 


4 








isp 


h + 


4 




,-2 




Jmp 


b + 


2 






d 


lac 


h + 


2 




, reset c ctrs 




dac 


h + 


6 








dac 


h + 


7 






c 


lio 



h + 


5 




,0, o,x\,i on+lj etc. 




lio 


h + 


6 




,777^00 

















isp 


h + 


6 








Jmp 


c 










lio 


h 


) 


377, 


n.,377, n + 1, etc. 

















lio 


h + 


7 




,777^00 

















isp 


h + 


7 








Jmpc + 6 






f 


lac 


h + 


11 




,-100, reset e ctrs 




dac 


h + 


10 








lac 


h + 


5 




,0 




dac 


h + 


1? 






e 


lio 




h + 


12 




,0 init, bin 0-77 




lac 


h + 


12 








add 


h + 


13 




,10000 




dac 


h + 


12 








isp 


h + 


10 








Jmp 


e 










szs 


10 










Jmp 


aa 










Jmn 


e + 


7 







org 220 



377 , constants 



777^00 







0- 




- 100 


10000 ' 
" 12 

- 2 

lac k ,0a, tw mode 

Jmp g + 7 

lac k + 1 ,OlD 

Jmp g + 7 

lac k + 2 ,1a 

Jmp g + 7 

lac k + 3 ,1b 

dac r 
p dac r + 2 

lac k + 4 >-23 setup line ctr 

dac k + 5 

lac k + 6 ,-60k stop delay 250ms 

dac k + 7 

lat 

dac k + 10 

llo k + 10 
r , punch rt half if a. It half if b 

rir s9 

, punch It half if a, rt half if b 

isp k + 5 ,-23 line count 

Jmp p + 7 

isp k + 7 ,-60k stop delay 

Jmp r + 5 

Jmp p + 1 
k ppa » , constants 

ppb ' 

ppa ' cl 

ppb » cl 

- 23 


- 60000 



aa lac ah ,100 locate data, general test read check 

dio ah + 1 

sad ah + 1 

Jmp aa + 1 
ac lac J + 1 ,-2 reset ab and ad 

dac ah + 7 

lac ah 4- 4 ,-12 

dac ah + 3 

dac ah 4- 6 
ab lac ah + £ ,377> check 10 lines all holes 

xor ah + 1 

sza 

Jda bd , error 

isp ah + 3 ,-12 

Jmp ab + 7 

Jmp ad , check next 10 

rpa » . . 



ad 



an 



ae 



af 



ag 



Ho mil 


"^-: 


"^^ 






jmp ab 










rpa ' 




, check 


10 


lines no holes 


dlo ah 


+ 


1 






lac ah 


+ 


■5 




,0 


lor ah 


+ 


1 






sza 










Jda bd 




, error 






Isp ah 


+ 


6 




,-12 


jmp ad 










Isp ah 


+ 


7 




,-2 


Jmp ad 


+ 


13 




, check next 10, 377 


jmp an 










rpa • 










dlo ah 


+ 


1 






jmp ac 


+ 


2 






lac ah 


-f- 


5 




,0 reset for 0,n 


dac a J 










dac ah 


+ 


6 






lac aj 


+ 


1 




,-377 


dac ah 


+ 


3 




,pr ctr 


lac J + 1 




,-2 


dac ah 


+ 


7 






Jmp ae 




, check 


0,n 


■t'pa ' 










dlo ah 


+ 


1 






lac a J 




,0 






xor ah 


+ 


1 






sza 










Jda bd 










I'pa ' 










dlo ah 


+ 


1 






lac ah 


+ 


6 




,0 init 


xor ah 


+ 


i 






sza 










jdl bd 




, error 






Isp ah 


+ 


3 




,-377 


Jmp ae 


+ 


17 






jmp af 










Idx ah 


+ 


6 




, compare word 


Jmp ae 










Isp ah 


+ 


7 




,-2 


jmp af 


+ 


3 






Jmp af 


+ 


12 






lac ah 


+ 


2 




,377 reset for 377, n 


dac aJ 










lac ah 


+ 


5 




,0 


dac ah 


+ 


6 






lac a J 


+ 


1 




,-377 


dac ah 


+ 


3 




,pr ctr 


Jmp ae 




, check 


377, n 


lac a J 


+ 


2 




,~100, reset for binary 


dac aJ 


+ 


3 






lac aJ 


+ 


4 




,200 compare word 


dac aJ 


+ 


5 






i*pa ' 




, check 


binary 


dlo ah 


+ 


1 






lac a J 


+ 


5 




,200 Init 


xor ah 


+ 


1 






sza 










Jda bd 




, error 






isp aJ 


+ 


3 




,-100 


Jmp ag 


+ 


11 






Imp ag 


+ 


13 






idx a J 


+ 


5 






.1ratj ae 













lac 


ah 




,100 check feed ^ 




i-pa 


1 








dlo 


ah 


+ 


1 




sad 


ah 


+ 


1 




hit 






-,test complete 




J da 


bd 




, error 


ah 


000 


377 







, constants 




- 12 







































aj 













- 377 








- 100 



















200 



















org 450 










ba 


lac 
rpa 


ah 
1 




,100, locate data 




dlo 


ah 


+ 


1 




sad 


ah 


+ 


1 




jmp 


ba 


+ 


1 


bb 


lat 






, check data, rt alpha 




and 


ah 


+ 


2 ,377 




xor 


ah 


+ 


1 




sza 










Jda 


bd 




, error 




rpa 


1 








dlo 


ah 


+ 


1 


be 


lat 
sar 


s9 




, check data It 




and 


ah 


+ 


2 ,377 




xor 


ah 


+ 


1 




sza 










Jda 


bd 




, error 




rpa 


t 








dlo 


ah 


+ 


1 




Jmp 


bb 






org 500 










be 


lac 

ipa 


ah 

I 




,100 locate data 




dlo 


ah 


+ 


1 




sad 


ah 


+ 


1 




Jmp 


be 


+ 


1 


bf 


lat 






, check data , It bin 




and 


bk 




,770000 




rar 


s6 








rar 


s6 








add 


aJ 


+ 


4 ,200 




xor 


ah 


+ 


1 




sza 










Jda 


bd 




, error 




rpa 


1 








dlo 


ah 


+ 


1 


bg 


lat 






, check data, rt bin 




and 


bk 


+ 


1 ,770 




rar 


S3 








add 


aJ 


+ 


4 ,200 




xor 


ah 


+ 


1 




sza 










Jda 


bd 




, error 




roa 


I 







dio ah + 1 

Jmp iDf 
bk 770000 

770 
bd 

dap bd + 4 , error routine 

lacbd 

hit 

Jmp 
org 
bj 

Jmp end 



,TAPE CONTROL PROGRAM S* L. 

, calling sequence 

,law or lac command. 

, Jda tape 

, initial address back or foward 

, final address " " 

,hlt non normal return 

,hlt normal return 

opd msm 720073 

opd mwc 720071 

opd mrc 720072 

opd mec 720034 

opd met) 720070 

org 7000 

tape 



qlOO 



P102 
pl04 



p60 
Pl03 



^ + 1 





dap 

lac 

dap ki 

Idx qiOO 

lac < qlOO 

dap k2 

idx qiOO 

dap k3 

llo tape 

rlr s8 

spi 

Jrap pl04 

lac tl05 

sza 

lio tape 

msm 

cla 

mec 

Jmp » k3 

lac tape 

and till 

dac 

lac 

dac 



, command 



, operate "bit off 



,tape is sopped 



, strobe status 



t3 

tl05 

t2 

and till 
sas t3 
jmp p60 
mec 
spi 

jmp PI03 
lio tape 
msm 

dzm tl05 
dzm tl22 
law pl3? 
dap pl31 
law pi 31 
dap PI34 
law q6 
dap pi 2 2 
dap q7 + 
dap q7 + 
dap qiO 
law 6 
dap p32 
law ql5 
dap ql3 
law p44 
dap pl33 



,what unit number 



,was last operation continue 



,is present unit busy 



, start up tape transport 
,flag 4 



1 

3 
+ 2 



- 4 



pll3 
pil4 

pll5 
pil6 



Pll7 

pl05 
pl06 



pl07 
pliO 



Pl37 



pill 
pll2 



law p50 

dap pl25 

law p52 

dap PI30 

law ql 

dap ql3 

mcb 

lio tape 

ril s6 

spi 

Jmp PIO5 

ril si 

spl 

Jmp pl06 

rll si 

spi 

Jmp pl07 

ril si 

spl 

Jmp pllO 

rll s2 

spi 

Jmp pl37 

rll si 

spl 

Jmp pill 

rll si 

spl 

Jmp pll2 

Jmp pl20 

law pl22 

dap PI23 

Jmp pll3 

lac tape 

dac tl05 

law pl22 

dap pl33 

dap PI25 

dap PI30 

Jmp pll4 

law rdck 

dap PI34 

Jmp pll5 

law space 

dap PI34 

law PI34 

dap pl33 

dap pl25 

lac kl 

cma 

dac tllO 

Jmp pll6 

Idx k3 

dzm bk 

cli cla 

msm 

mec 

Jmp « k3 

law bread 

dap PI31 

Jmp pll7 

lac t2 

sza » 

Jmp -> + 4 

law write -1- 

da Dl'=54 



yearly complete different unit 



,its your gap 



,-read check 



, space back or fow ard 



, rewind 



,foward or reverse 



,read or write 





Jmp pl20 




law write 




dap pi34 


pl20 


lac kl 




dap q31 




law » 1 




add kl 




dap q6 




dap ql5 




lac k2 




dap q33 




dap qil 




dap tl03 




ell 7 


Pi3^ 


Jmp pl31 


P131 


Jmp pi32 


P132 


lac tlO? 




dac q7 




lac q32 + 1 




dac q2 




dac q4 




lac q30 




dac q5 




idx bk 




Jsp read 


Pl33 


Jmp p44 ,your gap 


p44 


lac til3 , fixed delay for eob 




J da delay 


p45 


lio t3 




msm 


P123 


Jmp p46 , early complete dlff 


p46 


lac tii4 , fixed stop delay 




Jda delay 


Pl22 


lac q6 


P32 


szf 6 




Jmp p56 




lac tl22 




sza » 




Jmp -> + 3 




stf 4 




Jmp p56 




idx k3 




lac bk 




mec 




Jmp » k3 


P56 


lac • pl22 




mec 




Jmp * k3 , non-normal return 


bread 


lac q6 




dap qll 




dap tl03 




lac k2 




dap q6 




dap ql5 




lac tl04 




dac q7 




lac tl06 




dac q? 




dac q4 




dac q5 




law » 1 




add bk 




dac bk 




stf 6 




Jsp read 


P125 


.1mn p50 .your Rap 



P50 


lac til5 
Jda delay 

Jmp p45 


, delay back 


write 


lac tll6 
Jda delay" 
idx bk 
law q3l 
dap pi 22 
Jmp q30 




q35 


lac tll7 
Jda delay 
mcb 




Pi30 


Jmp p52 


,your gap 


P52 


lac tl20 
Jda delay 

Jmp p45 


, stopping delay 


space 


law p22 
dap ql3 
isp tllO 
Jmp pl3i 
law p44 
dap pi33 
law p50 
dap pi 25 
law 2000 
dap p32 
Jmp pl3i 




rdck 


law q6 






dap qi3 - 


4 




law ql5 






dap pi 22 






dap q7 + 1 






dap q7 + 3 






dap qiO + 


2 




Jmp pi3i 




q30 


nop 

law » 2 
dac t2 




q31 


lio 




q32 


mwc 
ril s6 
cla 

Jda delay 
isp t2 
Jmp q32 
nop 
mwc 
nop 

idx q31 
sad q33 
Jmp q35 
Jmp q30 




read 


dap p31 
mcb 






lac til2 


, delay before e] 




dac t2 




P? 


szf 2 
Jmp ^ + 4 
isp t2 

Jmp p2 






Jmp qi4 


,tape has no chj 




law tl23 






cli 






dap 






mrc 






cla. . 





I 



qx3 


Jmp 


ql 


ql 


szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




szf 


2 




Jmp 


q2 




Jmp 


p22 


q? 


ril 


s6 


q? 


Jmp 


qlO 




add 


q6 




mrc 






dac 


q6 




Jmp 


q3 


qlO 


lac 
mrc 


q6 




idx 


q6 




Jmp 


q3 


q3 


sad 


qll 




Jmp p26 




szf 


2 




Jmp 


q4 




szf 


2 




Jmp q4 




szf 


2 




Jmp q4 




szf 


2 




Jmp q4 




szf 


2 




Jmp 


q4 




szf 


2 




Jmp 


q4 




szf 


2 




Jmp 


q4 




szf 


2 




Jmp 


q4 




szf 


2 




Jmp 


q4 




Jmp ql4 


q^ 


rll 


s6 




mrc 




q5 


nop 




q6 


dlo 






ell 


elf 6 




szf 


2 




Jmp 


ql2 




szf 


2 




Jmp 


ql2 




szf 


2 




Jmp 


qi2 




szf 


2 




Jmp 


ql2 




szf 


2 



ql2 
ql5 

qi4 



ql6 



p26 



P27 



P31 
delay 



exit 
qll 

q33 

t? 

t3 

ki 

kr 

k3 

t7 

ti03 

tio6 

tl04 

tl05 

tl07 

tilO 

bk 

till 

tll2 

t1.l^ 



szf 2 

Jmp ql2 
szf 2 

Jmp ql2 '. 

szf 2 

jmp ql2 

szf 2 

jmp ql2 

jmp qi4 

lac tl23 

mrc 

sas 

jmp p26 - 

jmp ql 

law ' 

dac t2 

szf 2 

jsp ql6 

Isp t2 

Jmp ql4 + 

jmp p?6 

dap -> + 3 

stf 6 

mrc 

jmp 

szf « 6 

jmp ql4 

mrc 

elf 7 

jmp p2 

stf 6 

szf 4 

Idx ti22 

law » l4 

dac t2 

mrc 

szf 2 

jmp p26 

isp t2 

jmp p27 

ell elf 4 

jmp 



dap exit 

isp delay 

jmp -> - 1 

jmp 

dio 

llo 













sas 

rir s6 

law ' 1 



jmp qiO 





000003 

- 764 

- 102 



,1s it eob 



, delay after character 



+ 2 



, index counter 
,unit no + temp stor 
, initial address 
, final address 
,non norm return 
, address equal 



, continue memory 

, space count 

, block count 

,unlt mask 

,beglnlng delay onread mis char 

.foward delay read before stoD 



t±m 


- 306 


tli5 


- 412 


tii6 


- 424 


til? 


- 13 


ti20 


- 524 


tl22 





tl23 


0" 


end 





, final stop delay read + write 

, back read delay before stop 

, write start delay 

^eob delay write 

, write delay before stop 

,flag 4 

, storage for read check 



, any tape duplicator verifier 
org 3000 

cla 

dap zero 



zero 



dzm 

idx zero 



leader 



, limit is 3^0400 
, set master then contin 



szs 

Jmp 



readbloc 



sas limit 

jmp zero 

hit 

rpa * 

rcr s9 

rcr s9 

sas stopcode 

Jmp leader 

rcr s9 

rcr s9 

20 , on is no punching 
setreadbloc 

law punchbloc 

dap punchorread 

law 1000 

dap block 

jmp patchl 

law 1000 

dap "block 

rpa ' 

rcr s9 

rcr s9 

sad stopcode 

Jmp patch2 

dap histo 

dac 

idx 

idx "block 

sas limitl 

Jmp readbloc + 2 
punchorread Jmp 
punch'bloc law 1000 

dap blockl 

lac block 

dap limit 2 

lio 

ppa » 

idx blockl 

sas limit2 

Jmp block! 

sad limit3 

Jmp readbloc 

,set copy then contin 

law 0400 

dap zerol 



block 
histo 



, limit! is 241100 



block! 



,limit2 is 22xxxx 



,limit3 is 221100 



loadcopy hit 



zerol 



leader! 



read 



dzm 

idx zero! 
sas limit4 
Jmp zero! 
rpa » 
rcr s9 
rcr s9 

sas stopcode 
Jmp leader! 
Jmp read + 5 
rpa ' 
rcr s9 



,limit4 is 341000 





rcr 


s9 






sad 


stopcode 




Jmp patch;: 


5 




add 


constant , constant 




dap 


histol 




hlstoi 


Idx 








jmp 


read 




compare 


law 


0000 






dap 


masterhisto 




law 


o4oo 






dap 


copyhisto 


masterhls 


to 




lac 


copyhlsto 






sas 




jmp 


error 




indexer 


Idx 


masterhisto 




Idx 


copyhlsto 




sas 


limit5 


> ,limit5 is 




jmp 


masterhisto 




jmp 


loadcopy 


error 


llo 


save3 






tyo 


T 


,cr 




lio 


Ic 






tyo 


f 


,1c 




llo 


sam 






tyo 


t 


,m 




rir 


s6 






tyo 


f 


,a 




rir 


s6 






tyo 


I 


,s 




cli 








tyo 


t 


, space 




lac 


masterhisto 




and 


save3 






jda 


type 






cli 








tyo 


1 


, space 




lac 


» masterhisto 




jda 


type 






lio 


saves 






tyo 


1 


,cr 




lio 


poc 






tyo 


1 


,c 




rir 


s6 






tyo 


1 


^0 




rir 


s6 






tyo 


1 


,P 




cli 








tyo 


t 


, space 



521000 



lac copyhisto 

and save3 

jda type 

cli 

tyo ' ^ space 

lac * copyhlsto 

jda type 

lio save3 

tyo ' , cr 

szs 10 ,on to contin despite err 

jmp indexer 

hit ,if ssl dn end prog 
trailer szs 20 

jmp loadcopy 

jmp punchbloc 
setreadhloc law readbloc 

jmp readhloc - 4 
limit 34o400 



St op code 

llmlti 
limits 

limits 
llmit4 
constant 

limits 

poc 

Ic 

sam 

save3 

type 



go 

exit 
leading 



twenty 

temp 
tempi 
two 
patchl 



patch2 



n 



patchS 



m 



000113 

241100 
220000 
221100 
341000 
000400 
521000 
474663 
000072 
226144 
000777 



dap exit 

dzm tempi 

law * 6 

dac temp 

lac type 

cli 

rcl s3 

dac type 

cla 

rcr s3 

sza * 

jmp leading 

rcl s3 

idx tempi 

tyo ' 

isp temp 

jmp type + 5 

Jmp 

sas tempi 

Jmp twenty , 

law » 1 

sas temp 

Jmp go 

lio two 

Jmp go 





000020 

rcr s9 

rcr s9 

jmp readbloc + 7 

dap n 

dac block 

idx . . 

idx block 

jmp trailer 

add constant 

dap m 

XO.X • • 

jmp compare 
jmp end 



• • .multiply subroutine 



xsy mpy 






imp ' t b f 


loc 
dap a 




ai 


xct 
jda g 
lac b 
idx a 
rir 1 
rcr 9 
rcr 9 
jmp ' a 




ei 


loc . , . temporary storage 


mpy» tgi 


loc 
dap f 

lac g 
spa 
cma 
rcr 9 
rcr 9 




f; 


xct 
spa 
cma 
dac e 

cla 




z eoc mus 








z eiz ejz 


ejz eiz e|Z eiz ejz ejz 




z eiz e|Z 


e ... i7mus e 




dac e 






xct f 






xor g 






sma 






Jmp h 






lac e 






cma 






rcr 9 






rcr 9 






cma 






rcr 9 






rcr 9 






dac e 




h$ 


idx f 
lac e 





e$z e|Z e|Z e|Z ejz ej 



fin 



jmp ' f 



,..decprint subroutine, routine to print decimal 
•. .July 11, 1961 



decprint* t 



check for minus 



"b. 



sets 



forma 
df 



print t 



dap return 
law teny 

dap tenz . . . set the nonprint trap 
dzm value ...reset value 

law' 5 

dac position ...reset position 

law a 

dap ten J ...reset end trap 

rcl 9 

rcl 9 

sma . 

jmp b 

cma 

dac store 

law c 

dap printit 

Jmp set 

dac store 

cli 

xct command 

law store 

add position 

dap d ...next number to subtract 

lac store 

sub 

spa 

Jmp print 

dac store 

idx value 

jmp form 

add » d 

dac store ...restore after going negative 

lac value 



. . . set trap to print minus sign 



...print space since no minus sign 



ei 

printzero; 

tenzt 

tenx» 

tenyj 



printit i 

Ci 

tenkj 



tenb. 



ten J J 
ai 



sza 

jmp printit 

law 20 
Jmp teny 
Jmp printit 
cli 

xct command 
Jmp tenb 
Jmp tenk 
lio minus 
xct command 
rcl 9 
rcl 9 

xct command 
dzm value 
law tenk 
dap printit 
law tenx 

dap tenz ...unset nonprint trap 
isp position 
jmp set 
law tenx 
dap tenz 
Jmp -> + 1 
law return 
dap -^ - 2 
lac store 
jmo e 



...trap to print no leading zeros 





loc 
loc 
loc 
loc 


303240 

23420 




loc 


12 


stores 


loc 




value f 


loc 




positions 
returns 
minus t 


Jmp 
bci 


*>» # 


command t 


tyo' 


t 


fin. 







loc 



, binary punch and load package modified I9JAN61 for read in check and g 

,lo and raid version (loader first) 
, binary loader with check feature added 
,19 JAN 61 BF 
org 1 



d 
c 



re jmp 
e 



b 
rbw 



f 
rbs 



res 



h 

c-p 

sum 

bwd 

tsl 

rim 



15q 



dzm sum 

jsp rbs 

dac 

dap 

spa 

Jmp 

lac 

szs 

lac 

dip 

Jsp 

add 

dac 

Jsp 

Jsp 



b 
c 

e 

a 

20 

c-p 

c 

rbs 

c 

tsl 

res 

rbs 



+ 2 



, clear suegister 

,read binary word and sum 



, negative ac - assumed Jump 



,read length 
, compute end 

,read check sum and check 
,read binary word and sum 
,dac in memory or sad with memory 



c 

tsl 

d 

res 

a 

res 

10 



, index store or check address 

, checks for end of block 

, store or check next word 

,end of block read check sum and check 



ss 1 off Jump to address J set - halt 



,read binary word subroutine 



,read binary word and sxim subroutine 



jmp -> + 

lac ' c 

hit 

idx 

sas 

Jmp 

Jsp 

Jmp 

Jsp 

szs 

hit 

Jmp . • 

dap f 

rpb » 

dlo bwd 

lac bwd 

Jmp . . 

dap g 

Jsp rbw 

add sum 

dac sum 

lac bwd 

Jmp .. 

dap h 

Jsp rbw 

lac sum 

sas bwd 

hit 

dzm sum 

Jmp , . 

sad . . 

, contains sum 

, contains binary word 
, temporary storage 

Jsp longlead 

lac rcdlo 

dac bwd 

lio bwd 

jsp pbw 

lio ' bwd 

Jsp pbw 

idx bwd 

sas rcendload 



,read cheek sum and cheek subroutine 





imp \5<l 




lio 


re Jmp 




Jsp pbw 




Jmp pbt 


, control 


and punch section 


9 

scontrol 


dzm 


return? 


control 


lac 
sza 


Jump? 




Jmp pjp 




lac 


return? 




sza 




return 


Jmp 


• • 


clear 


dzm 


sum 


next 


cli 


elf 1 cla 




szf 


1 




Jmp 


-> + 2 




Jmp 


■^ ~ ? 




tyi 






rcr 


s9 




rcr 


s9 




sad 


rc> 




Jmp 


clear 




lio 


sum 




sad 


rc-b 




Jmp 


begin 




sad 


rc-1 




Jmp 


length 




sad 


rc-f . 




Jmp 


final 




sad 


rc-r 




Jmp 


rim 




sad 


rc-p 




Jmp 


pbt 




sad 


rc-J 




Jmp 


Jump 




sad 


rc-s 




Jmp 


a 




ril 


S3 




rcr 


s3 




ril 


S3 




dio 


sum 




Jmp 


next 


begin 


dio 


inl 




dzm 


Jump? 




Jmp 


clear 


length 


dio 


len 




Jmp 


clear 


final 


idx 


sum 




sub 


inl 




dac 


len 




Jmp 


clear 


Jump 


dio 


Jpl 




idx 


Jump? 




Jmp 


control + 3 


rc-1 


43 




rc-f 


66 




rc-r 


51 




rc-p 


47 




rc-b 


62 




re- J 


41 




rc-s 


22 




rc> 


56 




return? 






Jump? 






.binary ^ 


f*ormat punch routiJ 



Jsp ptf , initial tape feed 



Jsp ptf 
bl 



exit 
pbw 



al 



, punch location block containing initial location of 
, program block, length of block and sum 



110 inl 

dio bwd 
Jsp pws 

lio len 
Jsp pws 
dac fnl 
lio sum 
Jsp pbw 



, punch program block with check sum at end 

lio » bwd 

Jsp pws 

idx bwd 

sas fnl 

Jmp bl 

lio sum 

Jsp pbw, 

Jmp control 

dap al , punch binary word subroutine 

xct punch~b 

rll s6 

xct punch-b 

ril s6 

xct punch-b 

Jmp . . 



pws 


dap 


di 




dio 


tsl, punch word and STjm 




Jsp 


pbw 




lac 


tsl 




add 


sum 




dac 


sum 


dl 


Jmp 


• • 


i 

PJP 


Jsp 


ptf , punch Jump pair su 




lac 


Jpl 




dap 


Jpx 




lio 


Jpx 




Jsp 


pbw 




lio 


Jpx 




Jsp 


pbw 




Jsp 


longlead 




dzm 


Jump? 




Jmp 


exit 


ptf 


dap 


Jpx 




lio 


lead 




dzm 


sum 


hi 


xct 


punch-a 




idx 


sum 


check 


sas 


tfl 




Jmp 


hi 




dzm 


sum 


Jpx 


Jmp 


• « 


> 
lead 


100 




tfl 


12 




tfl2 


340 




ts2 


, temporary storage 2 


inl 


, initial loactlon stored here 


fnl 


, final location stored here 


len 


, block length stored here 


Jpl 


, Jump location stored here 


rcdio 


dio 


a 


rcendload 




dio 15a + 12 



loglead 


^dap 


Ir 




Idx 


check 




Jsp 


ptf 




law 


tfl 




dap 


checkL 


Ir 


jmp 


■ • • 


punch-a 


ppa 


1 


punch-b 


PPb 


f 


, routine 


for program control of bin p+1 package 


Pb 


• • 


, beginning of block stored here 




dzm 


rim? 




dap 


return 




idx 


return? ,set control to retur: 




lac 


pb 




dac 


inl 




dio 


len 




lac 


rim? 




sza 






Jmp 


rim 




Jmp 


Pbt 


p"br 


• • 






dap 


return 




idx 


rim? 




lac 


pbr 




dac 


pb 




jmp 


pb + 3 


rim? 






PJ 


dap 


return 




idx 


return? 




Jmp 


jump 



jmp end 



, binary punch and load package modified 19JAN6i for read in check and g 





org 


7500 _ 


scontrol 


dzm 


return? 


control 


lac 
sza 


jump ? 




Jmp 


PJP 




lac 


return? 




sza 




return 


Jmp 


• • 


clear 


dzm 


sum 


next 


cli 


elf 1 c 




szf 


1 




Jmp 


-> + 2 




Jmp 


^ _ 2 




tyi 






rcr 


s9 




rcr 


s9 




sad 


rc> 




jmp 


clear 




lio 


sum 




sad 


rc-b 




jmp 


begin 




sad 


rc-1 




jmp 


length 




sad 


rc-f 




jmp 


final 




sad 


rc-r 




jmp 


rim 




sad 


rc-p 




jmp 


pbt 




sad 


rc-j 




jmp 


jump 




sad 


rc-s 




jmp 


a 




ril 


S3 




rcr 


S3 




ril 


S3 




dio 


sum 




jmp 


next 


"begin 


dio 


inl 




dzm 


jump? 




jmp 


clear 


length 


dio 


len 




jmp 


clear 


final 


idx 


sum 




sub 


inl 




dac 


len 




jmp 


clear 


jump 


dio 


jpl 




idx 


jump ? 




jmp 


control 


rc-1 


43 




rc-f 


66 




rc-r 


51 




rc-p 


47 




rc-b 


6? 




re -J 


41 




rc-s 


CLCL 




rc> 


56 




return? 






jump? 






, "binary 


format punch : 



cla 



+ 3 



pbt jsp ptf , initial tape feed 

llo inl jllo starting address 

dlo bwd 

Jsp pws _, punch location iDlock containing Initial location of 

llo len , program block, length of block and sum 

Jsp pws 

dac fnl 

llo sum 

Jsp pbw 

Jsp ptf , punch program block with check sum at end 
bi llo » bwd 

Jsp pws 

idx bwd 

sas fnl 

Jmp bl 

llo sum 

Jsp pbw 

exit Jmp control 

pbw dap al , punch binary word subroutine 

xct punch-b 

rll s6 

xct punch-b 

rll s6 

xct punch-b 
al Jmp . . 



pws 


dap 


di 






dlo 


tsl. 


punch word and sum 




Jsp 


pbw 






lac 


tsl 






add 


sum 






dac 


sum 




dl 


Jmp 


• • 




PJp 


Jsp 


ptf 


, punch Jump pair su 




lac 


Jpl 






dap 


Jpx 






llo 


Jpx 






Jsp 


pbw 






llo 


Jpx 






Jsp 


pbw 






Jsp 


longlead 




dzm 


Jump? 






Jmp 


exit 




ptf 


dap 


Jpx 






llo 


lead 






dzm 


sum 




hi 


xct 


punch 


-a 




Idx 


sum 




check 


sas 


tfl 






Jmp 


hi 






dzm 


sum 




Jpx 


Jmp 


# * 




lead 


100 






tfl 


12 






tfl2 


340 






ts2 


, temporary stoage 2 


Inl 


, Initial 


loaction stored here 


fnl 


, final lo 


cation stored here 


len 


, block length stored here 



Jpl 


, Jump location stored here 


rcdlo 


dlo a 


rcendload 


dio i5q + 13 


longlead 


dap Ir 




Idx check 




jsp ptf 




law tf 1 




dap check 


Ir 


Jmp . . 


punch-a 


ppa ' 


punch-t) 


ppb ' 



, binary loader with 

,19 JAN 6i BF 

org 7700 

a dzm sum 
Jsp rlDS 
dac b 
dap c 
spa 
Jmp e 
lac a + ? 
szs 20 
lac c-p 
dip c 
Jsp rbs 
add c 
dac tsl 
Jsp res 

d Jsp rbs 



re Jmp 



b 
rbw 



f 
rbs 



res 



h 

c-p 

sum 

bwd 

tsl 



jmp -> + 
lac » c 
hit 
idx c 
sas tsl 
Jmp d 
Jsp res 
Jmp a 
Jsp res 
szs 10 
hit 
Jmp , . 
dap f 
rpb » 
dio bwd 
lac bwd 
Jmp . . 
dap g 
Jsp rbw 
add sum 
dac sum 
lac bwd 
Jmp . . 
dap h 
Jsp rbw 
lac sum 
sas bwd 
hit 

dzm sum 
Jmp , . 
sad • . 



check feature added 



, clear sum register 
,read binary word and sum 



, negative ac 



,read length 
, compute end 



assumed Jump 



,read check sum and check 
,read binary word and s"um 
,dac in memory or sad with memory 



, index store or check address 

, checks for end of block 

, store or check next word 

,end of block read check sum and check 



,ss 1 off Jump to addressi set - halt 



,read binary word subroutine 



,read binary word and sum subroutine 



,read check sum and check subroutine 



contains s\im 

, contains binary word 

• tem-Dorary storaece 



rim ;jsp longleac 
lac rcdio 
dac bwd 

i5q lio bwd 

Jsp pbw '_ 
lio » bwd 
Jsp pbw 
idx bwd 
sas rcendload 
Jmp 15q 
lio re jmp 
jsp pbw 
jmp pbt 
jmp s control 



} 



org 7500 - 25 
, routine for program control of bin p+1 package 
pb . , , beginning of block stored here 

dzm rim? 

dap return 

idx return? ,set control to return 

lac pb 

dac inl 

dio len 

lac rim? 





sza 




jmp rim 




jmp pbt 


pbr 


• • 




dap return 




idx rim? 




lac pbr 




dac pb 




jmp pb + 3 


rim? 




PJ 


dap return 




idx return? 




jmp jump 



jmp end 



ext loader org loader 

dzm sum _, clear sum register 

j'sp rbs ,read binary word and sum 
la dac Ic ,1 nitlalize load loop poolnter 

^pa 

jmp le ,neagatlve ac - assumbed Jump 

lac la >get dac Instruction 

szs 20 ,load or compare? 

lac ij , compare - fetch sad 

dip ic , initialize instruction in load loop 

jsp rbs ,read leangth 

add Ic 

dac fnl , compute end ck 

jsp res ,read check sum and check 
id Jsp rbs ,read binary word and sum 
Ic . . ,dac or sad 

Jmp -> + 3 lac » Ic ,tape differend so shoe memory A 

hit , comparison error 

idx ic , index store or check address 

sas fnl , check for end of block 

Jmp Id 

Jsp res ,end of block - read check sum 

Jmp loader 
le Jsp res ^ Jump block so read check sum 

szs 10 ,ssi off - Jump to address J set - halt 

hit , 

xct Ic ,do the Jump 
rbw dap rl ,read binary word subroutine 

rpb ' 

dio bwd 

lac bwd 
ext rl Jmp « . 
rbs dap r2 ,rbw and sum subroutine 

Jsp rbw 

add sum 

dac sum 

lac bwd 
ext r2 Jmp . . 
res dap r3 ,read check sum and check subroutine 

Jsp rbw 

lac sum ,to show computed sum in ac if halt 

sas bwd 

hit , check sum error 

dzm sum 
ext r3 Jmp • . 
ext clear szs 20 ,don*t clear if ss2 up 

Jmp loader 

dzm bwd 

cla 
IJ sad = loader 

Jmp loader 

dzm * bwd 

idx bwd 

Jmp IJ 
ext =loader loader 
ext sum 
ext bwd 
ext fnl 
ext len 



ext zero-coimt • • 
ext loaderend dio loader + 100 
ext =dioloader _ dio loader 
ext p-order ppb * 

Jmp punchoff 

Jmp end 



,read binary test 

juse tape with ail ones and zeroes 



opd 


jda 


170000 


org 






start 


szs 


» 20 




jmp 


tests 




lat 






dac 


c 




i*pb 






dlo 


temp 




lac 


temp 




and 


a 




sas 


a 




hit 






lac 


c 




jda 


count 




rpb 






dlo 


temp 




lac 


temp 




and 


b 




sas 


b 




hit 






lac 


c 




jda 


count 




jmp 


start 


count 









dap 


z 




lac 


count 




cma 






dac 


count 


g 


Isp 


count 




jmp 


g 


z 


jmp 




temp 







a 


770077 


b 


007700 


c 







t5st3 


lio 

ppb 


temp 




lio 


temp 2 




ppb 




k 


szs 


» 10 




jmp 


start 




cli 






ppa 






jmp 


k 


tempi 


770077 


temp 


007700 


end 







check 



zhlt 



read 



stop 



hit 



, initial location 



, Address checker test program 

; 7/2V61 

, S. Lambert 

3 LOW checker 

org 

start law 100 

dap -> + 4 

dap check 

dap temp 

dzm ' -» + 

dap 

Idx 

sas 

Jmp 

lio 

lac 

sas 

hit 

idx temp 

idx check 

sas trailend 



-> - 1 
finish 
start + 
temp 



, final location 



,10 contains address 



temp 



, incorrect adress 



Jmp check 

szs 10 

jmp hit 

szs 20 

jmp start 

rpb 

dio temp 

lac temp 

dap stop 

and stop 

sad stop 

jmp 

rpb 

dio 

jmp 

lac 

dap 

dap 

dzm 

idx 

sas 

jmp 

lat 

and stp 

sza * 



- 1 

, check one reg, continuously 

,read in new tape 



» temp 
read 
start 
^ + 2 
X 4" 1 

-> - i 
last 
-» - 3 



, clear memory 



Jmp 
lat 
dap 
dap 
lac 
sza 
Jmp 
idx 
lio 
sas 
jmp 
jmp 



zhit 



-» + 1 



-> 



+ 



, check all reg. to find the 

, location of test word + address 



trailend 
X + 1 

zhit 



,10 has address of reg. being checked 





sas ' X 




hit 




Jmp zhit 


temp 


0- 


finish 


dap 7777 


stp 


7700 


last 


dzm 7777 


trailend 


lac 7777 



jmp start end 



...typewriter control, tyc, converted to Decal July 26, 196l,sjs 
• * • 

dac ac 



tyc' f .at 
start I 

ml OOP t 



m3i 
exec. 



noskt 



a2i 

fp4f 

c2« 



d2f 



emore » 
e2i 



e3» 



f? 



begins 



dio 
Jsp 
law 
dap 
idx 
idx 
sad 
Jmp 
lac 
sas 
Jmp 
idx 
lac 
dac 
lac 
lio 
loc 
Jmp 
dac 
dio 
lio 
tyo 
Jmp 
dac 
dio 
Jmp 
Jsp 
dio 
Jmp 
Jsp 
dio 
Jsp 
Jmp 
Jsp 
dio 
Jsp 
idx 
dio 
idx 
Jmp 
Jsp 
Jsp 
dio 
Jmp 
szs 
Jmp 
Jmp 
cla 
dac 
Jsp 
dio 
Jsp 
dio 
lac 
xor 
and 
sza 
Jmp 
idx 
szs 
Jmp 



io 

getl 

mm 

mg 

mg 

mg 

mgmax 

start 
«mg 

ssl 

mloop 

mg 
*mg 

exec 

ac 

io 

nosk 
ac 
io 
cs 

1 

e3 
ac 
io 

e3 
getn 

tl 

start 

getn 
'ti 

step 

c2 

getl 
* mgmax 

getn 

mgmax 
» mgmax 

mgmax 

start 

tcr 

getn 

exec 

m3 

1 

emore 

start 

fcount 
getn 
begi 
getn 
value 
'begl 
value 
mask 

test 
fcount 
i 
test 



...mm is location 2 preceding tables 



• . .handles a 



...handles c 



...handles d 



.handles e 



. . .handles f 



d5 



testj 



prcountt 



ep3s 
ep4s 



step* 



tcrmii 
ten 



ttabi 

getn' t 
getnp^j 



getlmls 
getl; 



jSp tjerr 

llo "begl 
jsp type 

SZS 2 

Jmp test '_ 
jsp ttab 
lio^begl 
jsp type 
lac begl 
sad max 
jmp prcount 
idx "begl 
jmp begin 
lio p 
tyo' 

llo fcount 
jsp type 
Jmp start 
Idx tl 
jmp ep4ei 
Jsp type 
jsp step 
Jmp e 
Jsp tcr 
lio tl 
Jsp type 
jsp ttab 
Jmp start 
dap tcrml 

SZS i 

jmp ->+2 
jmp start 
jsp tcr 
idx ti 
lio tl 
jsp type 
jsp ttab 
jmp ep3 
lio csp3 
dap ->+2 
tyo* 

jmp tcr-1 
lio csp4 
jmp tcr+1 
dap getlmi 
dzm mgp6 
jsp get! 
lac ssl 
sad csml 
jmp ^+6 
and csp2 
ior mgp6 
ral 3 
dac mgp6 
jmp getnp? 
lio mgp6 
rir 3 

jmp nosk-i-4 
dap typeml 
lac ac 
lio io 
szf 1 
jmp ^+2 
jmp ->"2 
ell elf 1 
tyi 



lio'tl 



diQ sfli 

lac ssl 
sad cret 

Jmp start 
typemli Jmp start+i 
type » t dap -»+7 

dio mgp7 

lac mgp7 

sza 

Jmp ->+4 

lio acml 

tyo* 
sm4f Jmp tcr~2 

ell 

dlo mmmi 

dio mmpl 
ss lac mmm2 

and acm? 

sza 

Jmp r 

lac mmpl 

sza 

Jmp rm3 
sp7i lac mmm2 

ral 3 

dac mmm? 

Idx mmml 

sas cspl 

Jmp s 

Jmp sm4 
rm3f lio acml 

tyo» 

Jmp sp7 
ri lac mgp7 

cli 

rcl 3 

dac mgp7 

tyo' 

dlo mmpl 

Jmp r-7 
csmlj loc 
csf loc 22 
cspli loc 6 
csp2t loc 7 
cretjcsp3« loc 77 
csp4» loc 36 
acm2t law 
acrait loc 20 
act Jmp a 
lot Jmp a 
maskf loc 7777 
tl. loc tl 
sslt loc 23 
mgi loc Jmpe 
mgpljmgmaxi loc Td2 
f counts loc 2 
begli loc 7777 
values loc Jspgetn 
max. loc 7777 
mgp6t loc 12010 
mmm2tmgp7« loc 

mmmls loc 6 
mmt loc 
qp2fmmpli loc 1 

loc 6l 

Jmp a2 



jmp a2+3 
loc 64 
Jmp d2 
loc 65 
Jmp e3-3 
loc 66 
Jmp e3+3 
loc 71 
Jmp e-2 
loc 23 

Jmpe I Jmp e ' 
loc 26 
Jmp e+4 
loc 27 
Jmp t 
loc 30 
Jmp tp7 
loc 31 
jmp u 

b?. loc 4i 
ral 3 
loc 4l 
ral 3 
loc 42 
ral 3 
loc 43 
rar 3 

vt loc a 
loc d5 
loc 4201 
loc d5 
loc 4300 
Jmp t 
loc 30 
Jmp tp7 

ts Jsp getn 
dlo V 
Jsp getn 
dlo v+1 

Jspgetm Jsp getn 
dlo v+2 
Jmp start 

tp7« llo V 

dlo v+3 
lio v+2 
dlo v+4 

llo •v+3 
dlo* v+4 

lac v+3 
sad v+i 

Jmp start 
Idx v+3 
Idx v+4 

Jmp ^-7 

Us llo V 

dlo v+3 
llo v+2 
dlo v+4 
lac » v+3 
sas'v+4 
Jmp ->+7 
lac v+3 
sad v+1 
Jmp start 
idx v+3 



Jmp -^--lO 
Jsp tcr 
lio v+3 

Jsp type 
Jsp ttab 
lio » v+3 
Jsp type 
Jmp ^-l4 
fin 



/codeword display - 
cwd. 



d. 



a, 

b, 

cwx, 
inx, 

iny. 



pit. 



dap 


cwx 


lac 


i ^^^ 


dac 


cw 


Idx 


awd 


xct 


i. ^^'^ 


dac 


X 


idx 


cwx 


xct 


1 cwx 


lio 


i cwd 


spl 




sub 


^dl 


dac 


y 


Idx _ 


cwx 


setup £tr, 22 


setup cty, 7 


setup "ctx, 5 


llo 


cw 


rll 


is 


die 


cw 


spi 




jmp pit 


Isp 


ctr 


jmp 


b 


lac 


1 cwd 


dac ^ 


cw 


setup ctr, 22 


isp 


ctx 


jmp 


inx 


isp 


cty 


jmp 


Iny 


Jmp 


• 


lac 


X 


add 


del 


dac 


X 


jmp 


c 


lac 


X 


sub 


^dl 


dac 


X 


lac 


y 


add 


del 


dac 


y 


jmp 


d 


lac 


X 


llo 


y 


dpy- 


-1 


jmp 


a 



ilLMr 


cmI 


iJa C^^ 


Uc 


l^ 


he 


"^ 



slz,del. 


2000 




dap sex 




lac del 




sal is 




dac ?dl 




sal Is 




dac "ZTdl 


sex. 


Jmp , 


variables 




constants 





start 



/alphabetic codeword tables 



Iwr, 



|«ArTO*^ • 



374200 


- 000000 


/space, printing 


561020 


010604 


A 


774o4o 


005056 


^2 


564204 


203056 


^3 


4204l3 


345122 


A 


164204 


175037 


5 


564307 


241056 


/6 


6o4o4o 


004077 




564305 


243056 


/i 


564205 







343056 



n 


/9 
























144512 


245114 


/°, 


602020 


010101 


// 


160231 


016000 


/s 


421220 


010744 


A 


072245 


122000 


A 


042506 


142000 


A 


125326 


142000 


A 


212421 


242000 


A 


060235 


522451 


% 


372020 



440430 


276000 



600000 


/. 


















001170 



400000 


174200 


2l4000 


/t&b, printing 


/. 


042410 


6i4oo2 


/J 


112461 


222410 


A 


070410 


204l06 


A 


655326 


i64ooo 


A 


512245 


124000 


A 


062245 


114000 


A 


102071 


522456 


/? 


030472 


645116 


/q 


502041 



124000 



A 




000174 



000000 


A 


101010 


204210 


^ 


000000 


000037 


021041 


020202 


/( 


072234 


u 
114000 


A 


162245 


134410 


A 


07204l 


016000 


/c 


072245 


ll6o4l 


/,^ 


072075 


114000 


A 


102161 


020446 


A 


060235 


522446 


A 



vc»«<0 X 



\^/^A(i 1 




^'■» f, 4 IT (f'' O'/'^fJ * 



upr. 



112245 
561020 

042555 
o6l4oo 

122451 
042175 

306020 

374200 

000000 
000000 
000000 

760207 

042452 
214251 
010421 
101010 

441020 








040574 

040020 
564205 
441020 
164306 
042506 
125326 

612420 

441020 
774o4o 



407603 




050774 



007600 
144410 

214523 
374102 
214306 
214306 
164306 
6o4i03 
154526 
614523 



134410 

030004 

224512 

000000 

266504 

010000 



204600 

000000 
023562 
oo43o4 
005250 
200000 

142000 

210000 
010101 

104210 

052704 













210000 

243056 

241056 

010237 
143061 
143061 
143061 
010521 
010521 

oo4o77 



300000 





312000 



400000 

204107 
051121 

041020 

153561 
353461 
143056 
243076 
143056 
243076 



/i 

/i.e., printing 

/u.c, printing 
/bksp, printing 

/(i,v,, printing 

/space, printing 



/" 


\ 


/• 


z 


/- 


'S 


/3 


1 


A 


$ 


/A 


u 


/< 


1 


/> 


> 


A 


n 



/s 
/t 

/w 
/x 

/Y 
/Z 

/- 



/tab, printing 

/M 
/N 

% 






441174 
0604l0 
441020 
461020 



214376 
764307 
164302 
364306 
774103 
6o4l03 
164336 
614307 
561020 

042555 
404250 

122451 
042175 

306020 






010000 
2o4io6 

010204 

010206 



143056 

243076 

041056 

143076 

041037 

o4io37 

041056 

343061 

010216 

224512 

025040 

266504 

010000 



204600 



% 
/P 

/H 
/I 
/i.e., printing 

/u.c, printing 
/bksp, printing 

/c.r., printing 



start 



/codeword digit display 
cwd. 



cwe. 



d. 



a 



t>. 



cwx, 
inx, 

Iny, 








dap 


cwx 


lac 


cwd 


sad 


{20 


law 


12 


sad 


(54 


law 


13 


ral 


is 


add 


(iwr 


dac 


cwd 


lac 


1 cwd 


dac 


cw 


Idx 


cwd 


lac 


IP 


dac 


y 


setup _ctr, 22 


setup cty, 7 


setup "ctx, 5 


llo 


cw 


rll 


Is 


dlo 


cw 


spi 




jiiip pit 


isp 


ctr 


jmp 


b 


lac 


1 cwd 


dac 


cw 


setup ctr, 22 


Isp 


ctx 


jmp 


inx 


Isp 


cty 


jmp 


iny 


lac 


X 


add 


2dl 


dac 


X 


jmp 


• 


lac 


X 


add 


del 


dac 


X 


jmp 


c 


lac 


X 


sub 


4dl 


dac 


X 


lac 


y 


add 


del 


dac 


y 


jmp 


d 



pit. 



slz,del. 



sex, 

2dl, 
4dl, 

so,x. 



SOX, 

yo, 

variables 
constants 



lac X 

llo y 

cipy-i 
Jmp a 

2000 
dap sex 
lac del 
sal Is' 
dac 2dl 
sal Is 
dac 4dl 
jmp . 

4000 
iOOOO 



dap SOX 
dlo yO 
Jmp . 





/set origin 



/alphabetic codeword tables 



Iwr, 



000000 
561020 
774040 
564204 

420413 
164204 

564307 
6o4o4o 

564305 
564205 
144512 
000174 



000000 
010604 
005056 
203056 
345122 

175037 
241056 
004077 
243056 
343056 
45114 
000000 



/space 
/I 

/^ 
/3 

/4 

/5 

/6 

/9 



start 



